From d6b52259d0abcd1173854909a695232ca9fb0612 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 24 Aug 2007 02:57:42 +0000 Subject: [PATCH] (tutorial-directory): Set with eval-at-startup so it gets the right value in an installed Emacs. --- lisp/startup.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index d791a0f6e5a..30d058afabc 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -308,9 +308,14 @@ from being initialized." (defvar pure-space-overflow nil "Non-nil if building Emacs overflowed pure space.") -(defconst tutorial-directory (expand-file-name "tutorials" data-directory) +(defvar tutorial-directory nil "Directory containing the Emacs TUTORIAL files.") +;; Get correct value in a dumped, installed Emacs. +(eval-at-startup + (setq tutorial-directory (file-name-as-directory + (expand-file-name "tutorials" data-directory)))) + (defun normal-top-level-add-subdirs-to-load-path () "Add all subdirectories of current directory to `load-path'. More precisely, this uses only the subdirectories whose names -- 2.30.2